home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / TXTCUR.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  16KB  |  228 lines

  1. '  Date: 07-30-92  03:34
  2. '  From: Rich Geldreich
  3. '    To: All
  4. '  Subj: Text mode cursor routines
  5.  
  6. 'The following 3 messages contain a smooth, pixel by pixel text mode 
  7. 'cursor driver(just like Norton's). 
  8. 'Just run this. If the checksum is correct, then unLZH the resulting 
  9. 'CSRDEMO.LZH file and look at QLBLIB.TXT for more info.
  10.  
  11. DEFINT A-Z:FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"csrdemo.lzh"
  12. T$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789()"
  13. G"KGzlSHgmTmcaaaWiaaaaf1h9yasalm0usrurn9Klnf0s4fstaaWqtjfrf10tUiuqt1Gcd"
  14. G"nLucf0uZ4Iqbnvdk00tv5IqbnvdkmsgTWgA10sEbaaa2gaaaeSM8JbibOWqtjvqt1Klpj"
  15. G"KsJLwtaaqaAj2MvtR4FNCpLriSTobobd5zvPIOZdJ1DhxTX2s9kIa1Qbfuoh3yVwsnJl5"
  16. G")4AcfcocWVcmg8sZg4rzuicpiXFBIfbIBxiP(EDYPqzHmK)BTb0JzRP(SZwIAtTVgidGa"
  17. G"(VA1AxLzz16Sx9Uw6QASAT7oB8vHYrQYKVgfZWRDL)NVEyT3ncIy91jpd4fg4EBxqjIAw"
  18. G"ywIjjVxCD8DIs46aQ3bxOqjSwvIoWb0GcqKoqCDGy0xoRi9ZFmFa64a0ZPJaqNwtH6ZAD"
  19. G"j1CN1ztadeHPxbaGFUyiDefAEZ8dixZrH0gRpuSOmnPD(LZCc(bGB0dSdJV)EdqJJayMF"
  20. G"SGoZylkHbI(43(9)R9TAUHk4(()09)1)gOOn8a3W4BT(gPSPlrl7K4PDL0Kp1hKZBGep5"
  21. G"bkErdEzQhGiFpqecEqeK0LdHhObsMtcIWuniQrkd4IhwytuFdhwiqXMj4mEybDItzPi3L"
  22. G"4Me3MWwHylTdoSGG419uMUvnBFtWcYnTWgA10Ykfaaa8jbaa0TE0JbibCqtpvLlcf0uDZ"
  23. G"wtaaabVS2UrBA3R(SeE(F1WdLnbqGTzvMs4HGXA1cyeDJfBJh2FJJCTEFpD7mYVF8h7)j"
  24. G"aduIKj12vflP3na)mSyPs4BY24jFwV5H3BWAJMwUBVST9UxEy4pW(t(XmoV948cVwomKZ"
  25. G"soW0nhd0GICEupveHKb0kWmqMNeeyWKOIGtiG4ZCjtz)Gmvnu8n3fw4bjnoukC1cbgSBT"
  26. G"dz5bnUisnLMjiq(9qkKZR0qO4rOQqsTGC08hQjHx8PmcURLc8(dFky1E7Xgww3jCPtbNg"
  27. G"OqtUwNlUH76NHV)fJujiywKccjZdQwO)uebK120SiBIQHieHtyrusosgQrV0vkQm2JB8H"
  28. G"40DBymmrqukBffbbCZTZhn8yFi19BIJL)kyxbkqvWykjt26tqrlQdYfZB3KCfvGIOIiBq"
  29. G"frzGPaDl8eNKvqHCOABa2BokasNhWbOCJhKfcaaN2RwrkJ3IDybqoHRIGeLCoR6vO)maL"
  30. G"dZ(ikNoPwSj(aTgaIUGfEQQgz8uevljZLmzk8IrJ9mjbrjGJL6yA(DeoXWnTy5jlPqOt0"
  31. G"ujcuPIKU2DJQRwfqaKIkONJTiaqcybjvIfusuRZiUGO0khEdcK5gLaOCRN6KBEYk344bw"
  32. G"F23cT6S6xG(jJLd07x1HuYgKuzxWyOxuUOLkLUKicSPswbWWLScAjq80k2ePdEkct4IJm"
  33. G"w2oP6Kajnw2rN)Uo7U7LDh8HteUExh(U4Aopp5ZdIk3bqOvgfgmbj(vNn39X(7)vdfsoF"
  34. G"lAyoAUo3OBw9Jxba8EPC3OXJ)UXZ9Rg)7NnzTBSs6f7OTB8JkPd0XUX3vb8Bj5TMdBLo1"
  35. G"JKZZTLh)EOGnLN7MDhhKlUPxQSNK5w3luVHRc(hV(G2)FtkouB6ylvBWi6iMw3DDa6qi("
  36. G"ei)t0Z79zEwVJn3i9mKRJghvPSmARuwNC5VtD(iAJISQ6jhCZjEm8JxSt2nbdyED7ClNN"
  37. G"jHrYXuOSsWaoOAUfN1ONDS7niIsW6HI7mZSFgQYT39ZrK7HFZJpxELmzDcw)IjpLWv74g"
  38. G"HIoxbeyu2epNYz0UmytzM5tTpIk7rP6mlqoOalW0eWSn5qkczUol4EouY7JJgLsdLv6bt"
  39. G"MlNPG1sup68Xo0sNcRnPvfXP3i2g89HJWUhTf(5zGLuISzjt8EuFs52hSAg0Pbw1NNCqX"
  40. G"45GjK7BWKC0eOZ5)PXzdwwK5DaWZ7MQPePzmBLmhR4fVJMz))BA8hqjNUVN9x6DEbaQ)8"
  41. G"5NpRTP94osZKZM2VRMw5X2AwLoi22ETOxiZVtDcCVi2VupBUGfd5L20RMim2RZ5gF1CdB"
  42. G"oeRH)HzhIKI6(A1GU2FNgXzgXbf7F(8OsP2Wkn5uFQ2xV79H5hMbTot9BsybtPU4TPmPc"
  43. G"qnj5rcLCdT(lSnMnkNq)kJ6nh3BhP5YtLP10k(Z0Ke1DLHPYd(ilaX9k0f0VrlA58cj4j"
  44. G"gh5iqW7kACf1RbbgK(AU8edFPWmmd0ImYZ7X6aytZMH5HQwJTgvjurlpKURpCU89NyNnF"
  45. G"qgQLCWgvVmkBZeQi(8AGNdFmR1QVZVcZ)U5AbFTFV0jB8eGUMjIj0u)K2(XmZ)W)UD1Cq"
  46. G"v0OTWjp43R93IvGCMt2i87Lq858fkd2eyBCPtb7U6Pje8AH8dTiu9iaucIEf)h3GWhJOZ"
  47. G"pWjaiGdwLwtnF)IAinIM5qBTlAmf9PKr)URNN3D7WQEUx7TNAr9wlrt)G5IoDOUhLDr)9"
  48. G"xW4hOZRmYs61zdFxMI928jGttIAjBeQ(397I9aCTF0W7iX0cBOvtluxaaaGyeaaaDWipg"
  49. G"GeGcdnLubnvtUe0unrTInbaae09CBhTTEAkEXNY59NVK2cTL(TTKsBziILvjLgZsj5ceq"
  50. G"Q6fhX94LVfFxF3oKqF53pNJ5Ggbf7sebUblTa(cHSsVa8(b21bTTz73A1()ExvQQz(c2d"
  51. G"pCx)b0yVGArn6WwaLsMKf5YiibKqWc25naq0m3HY37cVH5iM6m(4tkIUmwD8(DE6b7dBm"
  52. G"kJPt4oyuf54TRJpO1)WjKzAeP0seMpaIltqWSHH47bgvgpuIDgcpfeRyRorbfrBacjdr)"
  53. G"4CUbbRaEi5QAbBormsVGkeCWIWmLnRI9DTQuTUKGSmQyRk195qQe(HWtcqm5w4bdNGvNw"
  54. G"ZMrirc(HI18QmLp45qkmp5reQxeaWs8zw1WcAaPtXycQeiRKn1eR7REnt2HrUejpQ5Sdq"
  55. G"waXmorrtbfLv4XbGwAvunlWuEw12k(1VEmOYTDoEkPU42RoGle(DPhJQQWZvxxXV(1oGK"
  56. G"tGI46CzKaMzNajvjkelPrqGPw4MQ5OK6Skj9bxshkUdcrfETRTmzJOW3bm3moTmZ1qPHY"
  57. G"UksAASPI)aNxqRh)06o07y2FB(6nvd8CSXH2K(IJLj0Z8jZ0hlSJW9PJWsQEcrnCPKU5s"
  58. G"ddtvoi0L6wyxIB7E2fcggcB57j5InA6z4sGD26aSi47Q1dOT4(GUGFM)zqguCSnMkJQhb"
  59. G"3qwe31d9KL4AwINrzz75auZA9lpDdKyp7ChCLLecWI1iIfkZf5XfPrd98GbhSEfDklI7r"
  60. G"kJwzI5so2iAgcFKrjKUhX985i9fDgFnKlK56bhVmxsWgE0R5lAw1SFVR1TaTXt1z3Op2n"
  61. G"F7eEmeDZ6j0Xwv6cwcoF8xlGsNPiqVbjW0XiZyLaLew1KTERFqkiFYJc5gnc2WyrLn2ve"
  62. G"AM2JevrjREEL3n0OtIl1LdYGCyslcDvUrb)1s4cuB5BFYzWQIM(O9X(jfKySYGQhumr15"
  63. G"mu7dIxen2eQV16njdqlk2l7hku8RTFF)s2j4npdcw8ZYRrPb)whNJUQLy7LUiiEz)qVox"
  64. G"3(WnAxkdikduyxUDbxXCUtoYhtioEYO3iTa3tqf0SCv4Lfr1j3w60OoyCLuJhzjBdNy4q"
  65. G"gGb0s9)8YafcrPRwuMxmp9vB7dgAMJ4I6OHCtOymjEY1Cfy6sKe4kl9YWhjj85Mbk7Krj"
  66. G"rLkIXK(yNCCcVm1MVlDXkrqJzTNUEbI84DWaMPqwktQIenLlp48CAkqFDRW2O3qdqEX7W"
  67. G"gvKYhZ2wcj2ucWKsuCWfDi(32nBSrx(UnJHntdfnkaTCRm9ilj2gt3PnTfHoIzjcTLs0G"
  68. G"0yUU7oHnVCZ0VvS92blO9))3ud3MXGpEVfZxl3ZEpBd72KEt4CFhzD5aR83j8uK1kIzC1"
  69. G"OWfPSZWrBia3Fvj43Ivn8SZ2udSzOIB(SlGHDW7L8YFJabUG0vdU0jHtMHTHRlIyIdbnP"
  70. G"n2HAeHgPGgX9XQmrbuwh6OTSLX8bdXpYq1kzc1kKJOzjKU5tGPTgKqNXlijm6HevfAlbt"
  71. G"DruYmkI9tmgY8JqQfaEGxEbYaHwnKgXpQpWmgG(WB6xAqQejn)rJ5BUtcUadVtE(SHYW8"
  72. G"kSA2djjBeqUA6vqtJjSSQWalvjS2)rTyDyWs(yISEUcS2aITFm7Z(WNBzhtBDXXeVItAY"
  73. G"rFvINuPTgdAp(ufV)H5yjzmd6UCFxZc)l8NkJ5uMBwptElXVrJrsiw1Fh4SK76iBdFVeY"
  74. G"A(12hBumDvkMosxyx9PMOwx2PisjJy3H6Nq9FmTObCudg)gyhABMQPxkp21EAqQ8mnbmn"
  75. G"5FXB7UW3MR6VjAR5No)BhFVTQp1h63xTu2HyJbcPNL1nqJS5o)JCT6CI1(i)gvvet46F6"
  76. G"6gfB4Q5nqDJ8fYua3AsNsFs05)2ne0GjDVQs6hFYRcfBW1Fu5574EWA7F6ZbhFPl955)r"
  77. G"Eu(6ulxGkVxHfFB3lBri3B1mOp8CuKjJ)mwdoJJ)oz8gCoNdoz8gCo33zqXyOZnF0zS)D"
  78. G"hZVtZVfhlzRanIyTWgA10Y6baaaqnaaaO9E0JbibOqumjetjjKluHfv4UutaaqaTp2LXs"
  79. G"SOyB)sFcpWfjzZqmeaW5CEmsE4ELtWJXWc2(FRs3(3E3T2ZXNC)BpHJecHi)TdrtBN6lo"
  80. G"3d(53BGMdU5QR5zE(T5(0Z3((REKxAdG(F8DW6CqS6uF7Th1)h(Omo6AE2kMYUMtvXgpY"
  81. G"yGEr4xTftakbG77MyUUa2G4kM1Ba52ieLwTG1Q(ZSoqC8GEga4jBEyLpBsDPc0G)jbGda"
  82. G"xrVRwzDbWObbPF99T7ayelRZ4hdnk7IlZ7ce4tKRG16NUPJO6dMEj6xhQbKDnsjofh6Iw"
  83. G"iM3FKsAwCG(BVOhPN(vmDMUv))oWNPK(PXD677uXEP6DkD5DAdBQc7W(HJNTQnV7oMkdQ"
  84. G"((Ej5gO)ViaDek52)Kind6vfs1o8W)FM(0Rklfq)5H(3WFmn(fvZfDEJHWGOwidOUI4F("
  85. G"U02fdOKMp)MbnFqzWTmwj3zV81kZrzW6BKSiBgnndCJbfTyW4wTDunWiiB9Hc0h3brANj"
  86. G"tHYwKGOijsBdydQqFSKRjAsAhlFjmFZ5E64O47bBQruePttxGxSKVEZu5PnbvkWHqPi3e"
  87. G"SxlDiIKfsyXzqRhdULlPI8lKwGxAXk)mYdOn0gSGXswaDf8c7ctRM3WuOnNvoDZRwrkZC"
  88. G"kNgyZDH2TjiXDYS6qO3sRIZ3zyssOTWgA10ceeaaajPaaauuF0JbibSWqtjfrf10tUiuq"
  89. G"tHZrnbaad44ABhRPDFZ5s4Z)HvKaKnoqn5cT6YUInGT9gy(gjULV(Sb4A0OVtWh5MX)4V"
  90. G"7dycdLKTyBwVnCETGBDnA04R)3B9x)Mwm8e5gBSvwS)40flF3rGAEr9hGC8bLYYn8(D6I"
  91. G"FQLG5ZAqsMYK5jywZielbGEoMG1XrnkF4ZeiVIyswluvNavFbQE3pN6i0miGu0eephrak"
  92. G"iDigOvAraimj0sIaC(LNzefkbWIVhsfrLoxEbceHgjuyROHo2DPmU(lz3NaP8AcsLtyAg"
  93. G"f8j06uLwjs6Gr(T)WmEywUjEWqV)wZMd7U5AjuEciydlyohmoCpFc11k)IQ0PPt90Clj)"
  94. G"4iEtLrTZZn6yDalMTjVXrVEyqQIW7rgHGexEhGNMhppt347lyUdTkbn4DvViM7tICvOGT"
  95. G"9IIfSN0vQeVSNDBSob6dUhm8QOJKg9uh9OczoLMVaLVibpw1GI1lK(HonQZEXVK7R1Run"
  96. G"Bqb3wMbCW12aWS4WfWE4pLPTVB9zSwMfX)WARkTv9LAVKErqFvU6UzzXnLi27sCZQxPOS"
  97. G"9uvP2l)i3BTRTtwwKFzEw8NG)4(Xv)NI1gXU(hH9w5ALknI5xQ)I1g58kj1DBK1q0f655"
  98. G"U3RhoZrPmq7m31l0YoAcv3afdepLcepkbUjU1rXTBC79iC)NvO)XR(oynO7F5Q1TpH0z("
  99. G"lNX)WlkPPDPYUFuqA8RN0uKO7gji6H3xfnveubiVctd6wplF6d2bt3BwasAyR1rxorXI2"
  100. G"zs(GSshiSEVJnhamnoB(EWs3uhKN9aKBCFiKA(4AQtysEGW1ogP6KemA0VdKcHw0BjEJk"
  101. G"lAT5dSM1ZPuAFOJ4hmJd8co9RthGZg2LZSqaWVaOZh4EVcGzJ5Gpsqi3LeGUWmaB85D3P"
  102. G"Wg2JQLjt0VR7ih6TInRd3eJnAtn61ltJPCvSNicwhZmBOyGwtFN0ySADfGAOVfy(q4sei"
  103. G"ZuLjUMvZZ0KKSNLr9ynEIHso6mmtJHyPZBv1APAqhXPU46ciChuOA9kcrZwniRJgj4wf1"
  104. G"NzpmclJAJYu1c39KO5hVrC9HF0kus(hIAV5tTz)Tg8UASzzMm6CSNj2vp3I4QlYxSuR9z"
  105. G"PuXs3sameqc)49H8CdpuFCO4uifl4DcSYY(PVunX2ozXw4)JhK4WghrrCQ(R0ltALs3Zk"
  106. G"pxYaBS8Kf0mldY3RBu(kjLyuW4QwygvJILRJd6uKrG6Y0MJcI6K1A92gyx2y2MmC1iwV0"
  107. G"TvAmmzZzXfyMADEOKQQ)YZaO19gAvSZZvDSZ91OKro)nQ3wmy6dMSrktPdgTz(ZX16yPZ"
  108. G"H)qAH3MY48KxX9BQkXFUAbgnvQoAbr9o4BKG3ipENHY92ntMbB2pg6phfDwlALguQRBWm"
  109. G")t3ULZpctJKigcejv2cBOvtlMjaaaKKbaaap6rpgGeWcnf0sfn0us5IqbnvgD0eaaiqoQ"
  110. G"15DuTD6FRZd)fnSSQ5YpO3N2BZ1S5qKFsEnRAanPGl2(gltREaZY(9HV49w0Gay4bXUxU"
  111. G"bCJBhxJM2eozTEAR)npUe21cuKoRlZ)YrIBKYODbdtPqueKuLggy0NOzcQQqeYEsAJizz"
  112. G"JcNG4jmyVjabbntGSoMEjbfeAUhXOcJuKmuiRNSTnKkvK6MtimoebKZhtkwNOHqs9qLWa"
  113. G"ZVgsIgzT1K(JAyJ0OAu63p6ujwNS3C5opAyU(VkRSIR(AMxSxglZVDEDbRAs6xIO9XNO7"
  114. G"FfSrS(7s6oAtypsMqlTRjPesHVHCImZdrxLhTvDuoSsrSdovzzCoOTuijQiRZmXqPgXUX"
  115. G"4N9I(REr1DuHclywzjV4yus1t4PQMJnQl7kwetkUbrL)YrgsSquH9N(89a7NquubnBcFA"
  116. G"l0PdcQPnPblKsawrt3dNcpz2rxgd2zoUZY(wflufO3moMlre)5XBqTdXAe6r0gGBqTdXA"
  117. G"e6r0gGBqTdXAe6r0gGBqTdXBb9rTz0i)q8g6dgNEVJL(imUzoTNU90pcDDgD2a(yKvVuV"
  118. G"UaJm4kVDW(Fhf2D)rQCqudA06dibFFq9VgRUoRNTXAGRAnzQf)BXSmMgd2Chm7)5)zV9n"
  119. G"ywBotF3(67VNCx4dMW)WEbWcegW6)Hvc(UqIVstingcFSst6JCSL7Fslwh5pjoFV26T(y"
  120. G"QD3IRZ6gzun(ZfleOqkVKqy)yFBKEBghqRm64l1o6C4pqvXC(h5fFxIycoPGWG9Xdr(dg"
  121. G"pyEBohWQWPkoFXzXMeUSjjMGW9Swi8BpdjAZlHHIdhSyO2tBF87L1vfmKqAlSHwnTq8ea"
  122. G"aqn(aaaUPj)yasalm0usjuqtnJlcf0up5rtaaqd3WxN216TBm762t2333Ibj6ocsRus2s"
  123. G"DA8MKiBELMjj)jD2PCOH)KIJiIq0aauG0No(J)77n8aaGsPyc1pQ7XZWIMw08cYzEtlCP"
  124. G"vPZ9Y15w5U3bRrA72zV)pVFp66BBu3rceh14fvkknZfuHijEZmaLqoI5mgTU6j2HLSULr"
  125. G"Hm47JRlH)w4h)PWnS4MLVBir0T7GA0JI7XGkV8r7mtVJIC9OrZ2SR3h)JifJrRcg3gPYm"
  126. G"Mg7tTFmIwtrAaRO8OwIivyVgDhqoKtYvSbIbEpPUyCWWHUIeSdI1k)imuaWNlOh0Qd(xJ"
  127. G"tIGWSJ3cUZmIp5XY1Alx2EAePHxSxfkiYXgCgSVw2aOh8aaZe(7HJnIfZoSebrThV1CZJ"
  128. G"kstyXddtk2jd3LkF0q(JxcNZyVbZLaYd0b9cY2ayPKxqlcdESdzGqoaihKgohMvENwC)t"
  129. G"84MN8WA6rMHSIIteR5M3n28YwWWDLNn7wbzcx4k3NBViL3(Y2WgM(r5peKJe0l8WlECEI"
  130. G"dU4sjlrmceSyF0pfT(MapPoWxES7orsieVVN(L6JmvHdtaCJXukbJXnfiSdUWqcGGbKGm"
  131. G"V1eYkipfmgG)eFeDGp1iePPa(DazMwOdRqL(t9xAre(vXpzecpDlslztBnbiG(X(ypeBI"
  132. G"fXvm2cWf8qWqMzsRlFC)B8C6SJaXeGTqP1c7IqBrX(x6JUyXk4s6mghq)m60WuuwYSjGJ"
  133. G"8hvPYtHxd2tIrkeHSc8LO3Xm)qyD8CNl9))bvXP(CRsJynYLnim1za5GIaiblWMtKxh5c"
  134. G"Fe2b2J51HcaFl2cYtholAZ7zxRJSYxbpMBU5U7PFKWyU3U736f6rSq92coyjxjFdpCulA"
  135. G"bnVCF6LNih)jqiqSQ19(e7sjFU6JJ)leSgnqVxhoJmBSp9mc3H5hgb4v32mPfa2isjXMg"
  136. G"AuXviX1yg5juMs0rqisa2E0mHydcowAHiun89lZqhqD6ii(lMRaz1O62ZK6cgw6Qug7nu"
  137. G"aoaYKqqjBjIWvGr1tqZAvjT3dxDyOLsyj(zw1FMVSN3exMSw7IOh5oXfyn)R064iuxSo)"
  138. G"XwRhjt5qHeOmGvrvJY8aNwGynhbetYIjda8i4XLEPOJOJ)syiuV6qK52J2xigbdtrFvd2"
  139. G"t3mkZxXkDzQSAR3fqBmkxK18c4f69PFXabyHhxTSeJmQqEQpaSebEdpSa)SPM5nhHPUbq"
  140. G"Var83wjcddBvOPbOqFkmfC7wtvn7UsySOUHEBCZAB0aorrjSAzprVynEdBBSOOPT1bXBG"
  141. G"EWSXbReIbcP6vhCeL7HlLE(FTvc2WihfB(qLd6Aj1Zpp9EruyxPS6ANutOXPSjOii0Yfq"
  142. G"3innnObmK9rrTcIJ6onOinAwHwhyMtAJMCaOiQ2Lpg5CzszUwQbMXDGUvjlhqEs1q4DjF"
  143. G"6MfWfLbiTzPmxyvt24kQbITnUlPSPeCeHg6rTtfYDNRUu3st9PjevAyN3znbJrSBq3Lwb"
  144. G"Ty1qpYnu(rpggafh6FrKDUKk4rhC3QRIHDRPI5cKlRZrJvIvheNEoushzoCqJKInIxki9"
  145. G"eXxy14wdCLgPjauvB6ceSNz3QiU(RPoJqcdmOc(EUac2EfWDXbbl6bfbHrc2eQ7gJRNAf"
  146. G"65fgfp9FbjMKTb16tlaO6jy6amfEncHUduQDTyqlqE0wQGrZZek4zTqeQfNRAy8mPCtoG"
  147. G"e4OXgC)i2081cUXkMXNmj1fT43dmfvql3CABliSS7E6IdUVWLdZNCLXi5xGm3GAJaCgEI"
  148. G"X3E7hk4RNJqGaSWiOFfVi(vThFkflw2Q(AzKs8rbmajbAQ9Km94zhOWw00n4YqAQkx9CT"
  149. G"Gs)BEiC3MdDuftRzGQGzrhj40jZrlXutw9tZ3(l3dDIk6qjg4I(yYdx4XGy4gcb70KggK"
  150. G"3EEG1axyXkEnNGoAvFXdLGqAwgAJOo4MfxzqjAlMCbryZaw0TWH(mG9XOyEtrXsTViRKn"
  151. G"e1XIpB)kprFgD9XXn5LFoVo2WRV)sxEkuHenYokNuaa(FE22QBTZXG8aurLukeqPchjvq"
  152. G"SWDSUfRa2DM4oiG8i20Y5DU3ZfhfRjh7uYBq8eHKplPlr8nZNGeZOFggZ3yJGA00iZJET"
  153. G"Lh28CG1Jk5Nf7Q3Q2DevG1cmpWgtoOKJBTap2HWCIJ(57MxeusYEORnTIhZgODx0KH8JX"
  154. G"qm5Zohlmf5YuGRJCP0G8Ov0nBcgo0KhcRWYv40)tUDXOdN0jQ1etMsoRFUglkbsh(egZ3"
  155. G"f1Ip3g(ZdMHV)yQbRC7(0R4yC5uIj1gzN5CsWih2qscuLKH41tV9riaBSCEuca71i00fD"
  156. G"SuZ5UlaH15sM28t(11Fsabm5p7mfuAww5NaaYrOZmNWc3aVN5OZplWbFxfbMGSQImHUod"
  157. G"IlhlbLZWo0LNNb3qeaLyoMlkpCXUdAQ4U4phIqhSSH)qrb4iAHXme2Geq)qKNZg)T)CSK"
  158. G"ZFo4)QC0p3RTPmUaTtUc4wOXFmW4EiUnj7Ov(1H(5m6sb)4KK0x0gN47k9bc0HkB)pPIP"
  159. G")9uu8QBXlzTF4Q3syPDZ8HAameBx(iiwj4iuj40OZmFDIQjqQljqRmjqSmj8Dd866MxV5"
  160. G"mFUcEw4Wc8A9b9V1Jhou)8E2WGcu1RkH74KxGPvKBFCC4b7EqxqfbIEpDZTphcbV7JFhf"
  161. G"8bLzmWugHa7v9CPobPIS)KChTLo55MKRqA(YE0oPwbEbtr4FX)G)9yaiXj)8I8oTRH3WU"
  162. G"3eT10QBxVzTG4aJAyhjRgVvDJGrimmjm26ArNgzRbFIuz7tBoO74MqeRMkVqIex6tEDdU"
  163. G"d71njeBGCFaZv97NyK4J)lWvqYY(SZ51dVCUjFfMVWfZ9MweT4phR8nFPzT9OM89LnD(4"
  164. G"MpBJxCVThPeBBQHn3B6cZB7rsXZN22PJS))4r5Ukl6VZp9O4XJoEEMuWEX5xj3jPyxTTI"
  165. G"NnOVYPZzGCceqr8SZXaZoX1UfLHdcnil8qPqSR)aSlO(cRoHqBW1BjcbRIaUBqFEsqrYP"
  166. G"fbOYwGmo23MXcamJp2xSDm)PfNeRqH1tt6wIX15cwZBUSJTl3bpmsnZKrL5XpXNkTHrqi"
  167. G"eKKzYTVXN4uOcmU0u8cLNC95kybKlzI9n7yl2OzS0kxvyYrlncilycxOBeRvhEfM)Q2Q5"
  168. G"42mhjAU)YEzc5S0CjDErppxTEEjRHtxsY)ABR(9OQN)tgXGl0B1OtP)zjZoOFWyMkC2ju"
  169. G"UarLvdHor2pTGCGdubcRmze6ZPuW2itfmIxdFRIRROC25qhs1cdm4SSqUawsoPOuUd0)b"
  170. G"AKz8RAsCekdIsSVZznVE7vt9i6l752C3A3E5ptzXbB9SVQiVC6bzDCSgrjoI9wqAOOlCB"
  171. G"phvWFaGzEYJmknz8Vy20EZwEKX8F6XrRgBs2)7OVVRriANZE96vlQlXHY(r5J5JP(x024"
  172. G"oRVONboHfMOiHaYnVmIcuRQgzi0UOOux(JoI)4pkRzV9K1Sr4MyvDXtYllNqviD9YYBKN"
  173. G"CTurCM1NapNrd3efQz9A2AvANbtBrqDNvWqqSZuwptzg0qQgO7IehtSv08cYtH5YvScCk"
  174. G"yJR9d7H3zZrdVtMUhI8k2PpeHokeTa6cLbhc8ywXh5FvGWNaEMstFf3dB(glwQoDMY(Qo"
  175. G"AbT0qbBQ6awkabOCQYNXGuweEMbM2ipiwvazXj(QsI)REokPibIDp35EVsp)j(rjoMhjL"
  176. G"JQhLTs4HKL25spZu4fznV(V5LVrhcX5FBH7Tgo5qoBZ74B1zV44KZ7InjBunv)hfxCp7k"
  177. G"a9QqQN9zMo6GRhki)N1h8OE2fwzlu)ik1UDUNl7u6kb4ZEOw0xdyYSBOpnvsnNDQR)SvA"
  178. G"22aq0Cl0aej0haEzBRxU9WMwvEtkrcBLAO(gRkEebTsPZv(7VyLcxWTtljUgT)E((1iz0"
  179. G"Ku63uTZ7(1PrvQ8DI54OaMfPkDecCw43uY4LeMyIJcANhivA0cVqfB40V(FXJ2zDI0Fkx"
  180. G"ZwePvucv7SsTUPo6dfnRRqZcZDSc8oc3QH80LgQkZowt7dxMT9APrsD9LHjMzASglbPHQ"
  181. G"Hrl7PZs6YEsAOI82M10Z1TTN7SSF70mqWmwQBqnBTpQqZhbLt6qxe0(QRfGMSQyzHRvvo"
  182. G"QLjgi6KPIvkRrLHrOdk8KaGSglXKzaUdNVkRSeq9H3)TAX2T2pz1abmxx3gwtV1t5POVX"
  183. G"h9GTOsmxLO1eqXUP9Zf537CPpOM8DxtjeROF9oBIEIJUARQO7yuz1IoiOFhy)VQfAGpFU"
  184. G"w5ux(HEf(MzxfvXXl9dLJD(oyxbcK)yhWOQ3kwrmvHKOoktym9nTR5fZhC9NC1OWp6BWF"
  185. G"FlqDqOtFGWKMvIxKmKyc9Hwoh8ASwYypKrF)P)OF5FMY7sFhZCxhRuBklwc2m8PpmwY5F"
  186. G"QhLg6wuM87GV0uy)EvlLt8ICllMDfQ8f3xXtDK8dZ5X0pkGPilWnA)gPchPUrXNXecAs0"
  187. G"uBOwKKC9hetB2PI2IHEKBMSkqTd6bKsrKbltWP0d9JwTpgz4YCWuNb(4VKVUDSRxVIk1H"
  188. G"GCWDlJOhG6yMj6B)nqcIW3JVfnjd09lcLHDI80Wyh)3YD2jO)M2Zv3L5DTX3s40y(qMpE"
  189. G"Yh1JGF4At)FQ8YgiT(vX8(ugA7Yp2nZKWChz780kuOxrMaukU8)FmnXVQTYmVU)jFjVGJ"
  190. G"ouCTQ8aO5g1OwmsFBu06bZwHqDxaS6moG7A30mFGZ3Yo3CAwJ6RYh9xFRuVS76(7)Mk0Y"
  191. G"mnnV0ccYC4Q8uMMQhN5waFo8JZjWStbsyuihG(kvw0UOhQYcWWAwuoLMgEyD1zpyRnANv"
  192. G"7QuEhqXImi)NG)6MwHNKB4v)TgXONUbJ53SHXayH1DtryPyb(GU8jWB5GqXD4FoHTXpIv"
  193. G"hGrOW4ElYuELSGi4kJmg2y3LNPjxRtfDcIpf(JoRwT96nNl44iOd8oZercjdvAJnd1RRu"
  194. G"VZHeUVqu5IiwQLO4K4)hhzSbPY1XmCoUDJyj9vad6WhSRcDRyCoDUbfyw4nitO2PEKvfU"
  195. G"JmxoYOWS4CqAvMYuAXeKmUBsIEnsaRx7PAeQ9LEungShWByUWF4dGO6swzlKuqs7C)pA3"
  196. G"SYZPF97k3a6yv3HznfFTsrsdLTyiiVTyRCZQQ0yL619s4NNqghwvTRI5R)Oh(KAGXgpZb"
  197. G"bvRuwHxfnzQXasvEDUfv2PWMTG)hwnms4citd5R2kk4rYEMxxLfs2IqxQtq1MBPPBmiRP"
  198. G"dF6GBENmvE2D45SNtcjhQcwpBwWxdI6xsxPQvBa0qz262Kj)EYEjXAtQuJmI6guSwu01A"
  199. G"Zv3XVQBQrIe9il6NP6CHhknXYYM(roQVLrOBjQ6puRf2s2rertZ8CXRVjAGCwWD3WBMJO"
  200. G"er3djE(XhPbQ3YlTv9B6EPpAfYaAniSs6JgEPtvor210LRwLoZ8SQFMevwyesDDJxbzDs"
  201. G"DNPL4w3o57Q(lSFuNKKq)QYytERupIuGBGBNSrSv6FvBbq3DwfzHWXuj2wt5)SzjZ77cN"
  202. G"IxeaQji5EdAp4mpMXLzTncx1WDLVtfxkHF7ojz)BXsHZKltHFkzwa3n5MbXahTmRvhQJH"
  203. G"JTzTXJCO8CYqKKRt4FiMjPwlNRXnnOiRpL5SKDQSDAHJaSCImbCKNcUO1h)3nxSQ52cMT"
  204. G"AR4cOW1wuWLzlx)U1rAsT(y701y7Q(d0SF9lr7jIoXpcVe4k8df5lXCSxbmqqFcPiqVI8"
  205. G"mLwLExTcPJJiQPTLO1evtFQq46ITMUOJiQckWUYqGJpFTVkEgF18gYIRjy1JNagbAYFtB"
  206. G"HJXITsbkpgyMzBTR4sILPGKwEqNltPQkjPdrzwTrsOE1n1FJGfYo3VoP9xBr9qF9TcqPC"
  207. G"f7Ijb7SVKcekFLrCON(LQxhpUOMKZtMIQSvTLOn6zQ6J6SFFugVzLD((RBaYVeQNYG6ri"
  208. G"p6KToAlE3GFcIrK73IATbUHFP9sL6bkyIPd17KN0PpPaiTRAWjy64qqbpQLLB7J6CqX9Q"
  209. G"a1iugsaHR4jHYv5AosCpPA6lD4IJPF)PNB0Tt)BQRuhMTvKU(ZR6SSJu3l5x24Y6oyMLE"
  210. G"x9yFUvmBABR9Gw)K62vVl7uOSanp2uKoP)O40Ssvi7TNx)RfvLfPDfPcrXO3fzuyz0HKy"
  211. G"kHjeKCYxwGvs5yzlJBZJMXYqMfYQXIjEpvYx4Wou8bW4AX5bvOIkfdlLRvjJRqcvMvcG4"
  212. G"EjKSkvjbbmfwK5llLeiI9r6SruPd6COm8PTDdLDKm3kHCQzn0TqY5Qm4b1lQXW4VS2)IU"
  213. G"QUc)QhY)lPO(tLiFPwp1qdU0uxl690v6fDQGPgdkIAD3pumxzDDsFFntUkXD1VwgPJB1A"
  214. G"b4uslmZoXRRp5RygR)ICqFlilzRSsz7KD5AKSDxoPI7Lo6m1G6rRs9OYTEUYyDxvCADX9"
  215. G"P1ZsYYKDo)HA2TSBF1MKvdLU836JV33RRT294YkDBp2E3RJQJVpUxOWUo58lYmn1HRFFU"
  216. G"2)FcX)p541n4wvYpD0mW26sNUCE5uK73B9TgNSSoE)k)EVphY)n63)3n8)vn86VCr6)Fh"
  217. G"pTy5PY31hVd56)(IS)7MQxJ71pW8(SJeEP4vhZmZQMzMsNYrbVWiXQACO74CIQzF0(LIY"
  218. G"QwHfCi8OKz1ptGyOgs0xtyv)csTVCgtrgJ8Z0lhajMUn5ANZf0y9x3lhleokIs8YmKjmj"
  219. G"(BfBeDT269udYnq9DvW5XbWkT1qQYjpayO7ZAx0ZTf)ORBtLLXAcJ93ENHtoOJzj(0DvS"
  220. G"ZcR5(tNzl3uIKK)92wL6laba"
  221. IF LEN(C$)<>14307 THEN ?"Incomplete script file!":BEEP:END ELSE B$=" "
  222. Ln=CSRLIN:FOR A=1 TO 10730:LOCATE Ln,1:PRINT (100&*A)\10730;"% done";
  223. IF L=0 THEN GOSUB G:L=6:W=T\P(6-L) ELSE W=T\P(6-L)
  224. DO WHILE L<8:GOSUB G:W=W OR T*P(L):L=L+6:LOOP:L=L-8:B$=CHR$(W AND 255)
  225. PUT #1,,B$:NEXT:PRINT:IF C<>249 THEN ?"Bad checksum!":BEEP:END ELSE END
  226. G:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND 255):RETURN
  227. SUB G(A$):SHARED C$:C$=C$+A$:END SUB
  228.